setwd("C:/Users/MB/Desktop/BasStoneISQ")
ROC <- read.csv("DataforFigure10b.csv")

Z <- matrix(ROC[,4], 5, 50)
Y <- seq(.50, .99, by =.01)
X<- seq(5, 9, by=1)

persp(X, Y, Z, xlab="Polity Cutoff", ylab="Measure Cutoff",zlab = "Tetrachoric Correlaton", ticktype="detailed", theta=45, phi=30)


